home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-09-21 | 9.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 0e ee 85 f2 65 | 72 72 6f 72 3a e0 0d 00 |.......e|rror:...|
|00000020| 1e 18 de 62 6c 6b 25 26 | 31 32 30 30 2c 62 6c 6b |...blk%&|1200,blk|
|00000030| 32 25 26 32 30 30 0d 00 | 28 1e de 6d 68 5f 69 62 |2%&200..|(..mh_ib|
|00000040| 61 72 25 26 31 30 30 2c | 6d 68 5f 77 69 6e 73 25 |ar%&100,|mh_wins%|
|00000050| 26 31 30 30 0d 00 32 27 | 76 65 72 73 69 6f 6e 24 |&100..2'|version$|
|00000060| 3d 22 31 2e 30 32 22 3a | 64 61 74 65 24 3d 22 32 |="1.02":|date$="2|
|00000070| 31 20 53 65 70 20 31 39 | 39 34 22 0d 00 3c 1f 61 |1 Sep 19|94"..<.a|
|00000080| 70 70 6e 61 6d 65 24 3d | 22 4e 75 6d 65 72 69 63 |ppname$=|"Numeric|
|00000090| 20 41 6e 61 6c 79 73 69 | 73 22 0d 00 46 21 61 75 | Analysi|s"..F!au|
|000000a0| 74 68 6f 72 24 3d 22 a9 | 20 47 72 61 68 61 6d 20 |thor$=".| Graham |
|000000b0| 48 69 63 6b 2c 20 31 39 | 39 34 22 0d 00 50 0f 77 |Hick, 19|94"..P.w|
|000000c0| 68 5f 69 62 61 72 25 3d | 2d 32 0d 00 5a 0b 71 75 |h_ibar%=|-2..Z.qu|
|000000d0| 69 74 25 3d a3 0d 00 64 | 0d 70 6c 61 63 65 24 3d |it%=...d|.place$=|
|000000e0| 22 22 0d 00 6e 0a 45 3d | a1 28 31 29 0d 00 78 21 |""..n.E=|.(1)..x!|
|000000f0| c8 99 22 4f 53 5f 42 79 | 74 65 22 2c 31 32 39 2c |.."OS_By|te",129,|
|00000100| 30 2c 32 35 35 b8 2c 6f | 73 76 65 72 25 0d 00 82 |0,255.,o|sver%...|
|00000110| 25 e7 6f 73 76 65 72 25 | 3c 26 41 34 8c 6f 73 76 |%.osver%|<&A4.osv|
|00000120| 65 72 25 3d 32 30 30 8b | 6f 73 76 65 72 25 3d 33 |er%=200.|osver%=3|
|00000130| 31 30 0d 00 8c 3d c8 99 | 22 57 69 6d 70 5f 49 6e |10...=..|"Wimp_In|
|00000140| 69 74 69 61 6c 69 73 65 | 22 2c 32 30 30 2c 26 34 |itialise|",200,&4|
|00000150| 42 35 33 34 31 35 34 2c | 61 70 70 6e 61 6d 65 24 |B534154,|appname$|
|00000160| b8 76 65 72 73 69 6f 6e | 25 2c 74 61 73 6b 25 0d |.version|%,task%.|
|00000170| 00 96 19 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |....."Ho|urglass_|
|00000180| 53 74 61 72 74 22 2c 31 | 0d 00 a0 0c f2 73 70 72 |Start",1|.....spr|
|00000190| 69 74 65 73 0d 00 aa 0e | f2 74 65 6d 70 6c 61 74 |ites....|.templat|
|000001a0| 65 73 0d 00 b4 0c f2 69 | 63 6f 6e 62 61 72 0d 00 |es.....i|conbar..|
|000001b0| be 0e f2 69 6e 69 74 6d | 65 6e 75 73 0d 00 c8 26 |...initm|enus...&|
|000001c0| f2 77 72 69 74 65 69 63 | 6f 6e 74 65 78 74 28 77 |.writeic|ontext(w|
|000001d0| 68 5f 69 6e 66 6f 25 2c | 33 2c 61 75 74 68 6f 72 |h_info%,|3,author|
|000001e0| 24 29 0d 00 d2 36 f2 77 | 72 69 74 65 69 63 6f 6e |$)...6.w|riteicon|
|000001f0| 74 65 78 74 28 77 68 5f | 69 6e 66 6f 25 2c 34 2c |text(wh_|info%,4,|
|00000200| 76 65 72 73 69 6f 6e 24 | 2b 22 20 28 22 2b 64 61 |version$|+" ("+da|
|00000210| 74 65 24 2b 22 29 22 29 | 0d 00 dc 17 c8 99 22 48 |te$+")")|......"H|
|00000220| 6f 75 72 67 6c 61 73 73 | 5f 53 6d 61 73 68 22 0d |ourglass|_Smash".|
|00000230| 00 e6 13 ee 85 e7 a4 77 | 69 6d 70 65 72 72 6f 72 |.......w|imperror|
|00000240| 8c e0 0d 00 f0 05 f5 0d | 00 fa 09 f2 70 6f 6c 6c |........|....poll|
|00000250| 0d 01 04 0a fd 71 75 69 | 74 25 0d 01 0e 0a f2 63 |.....qui|t%.....c|
|00000260| 6c 6f 73 65 0d 01 18 05 | e0 0d 01 22 0d dd f2 73 |lose....|..."...s|
|00000270| 70 72 69 74 65 73 0d 01 | 2c 25 ea 78 61 73 70 25 |prites..|,%.xasp%|
|00000280| 2c 79 61 73 70 25 2c 73 | 70 72 66 69 6c 65 24 2c |,yasp%,s|prfile$,|
|00000290| 66 69 6c 65 25 2c 73 69 | 7a 65 25 0d 01 36 27 c8 |file%,si|ze%..6'.|
|000002a0| 99 22 4f 53 5f 52 65 61 | 64 4d 6f 64 65 56 61 72 |."OS_Rea|dModeVar|
|000002b0| 69 61 62 6c 65 22 2c eb | 2c 34 b8 2c 2c 78 61 73 |iable",.|,4.,,xas|
|000002c0| 70 25 0d 01 40 27 c8 99 | 22 4f 53 5f 52 65 61 64 |p%..@'..|"OS_Read|
|000002d0| 4d 6f 64 65 56 61 72 69 | 61 62 6c 65 22 2c eb 2c |ModeVari|able",.,|
|000002e0| 35 b8 2c 2c 79 61 73 70 | 25 0d 01 4a 24 73 70 72 |5.,,yasp|%..J$spr|
|000002f0| 66 69 6c 65 24 3d 22 3c | 4e 75 6d 65 72 69 63 24 |file$="<|Numeric$|
|00000300| 44 69 72 3e 2e 53 70 72 | 69 74 65 73 22 0d 01 54 |Dir>.Spr|ites"..T|
|00000310| 24 e7 78 61 73 70 25 3d | 31 80 20 79 61 73 70 25 |$.xasp%=|1. yasp%|
|00000320| 3d 31 8c 73 70 72 66 69 | 6c 65 24 2b 3d 22 32 32 |=1.sprfi|le$+="22|
|00000330| 22 0d 01 5e 13 66 69 6c | 65 25 3d 8e 73 70 72 66 |"..^.fil|e%=.sprf|
|00000340| 69 6c 65 24 0d 01 68 1c | 73 69 7a 65 25 3d a2 23 |ile$..h.|size%=.#|
|00000350| 66 69 6c 65 25 2b 31 36 | 3a d9 23 66 69 6c 65 25 |file%+16|:.#file%|
|00000360| 0d 01 72 11 de 73 70 72 | 69 74 65 25 73 69 7a 65 |..r..spr|ite%size|
|00000370| 25 0d 01 7c 1f 21 73 70 | 72 69 74 65 25 3d 73 69 |%..|.!sp|rite%=si|
|00000380| 7a 65 25 3a 73 70 72 69 | 74 65 25 21 38 3d 31 36 |ze%:spri|te%!8=16|
|00000390| 0d 01 86 20 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |... .."O|S_Sprite|
|000003a0| 4f 70 22 2c 26 31 30 39 | 2c 73 70 72 69 74 65 25 |Op",&109|,sprite%|
|000003b0| 0d 01 90 29 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |...).."O|S_Sprite|
|000003c0| 4f 70 22 2c 26 31 30 41 | 2c 73 70 72 69 74 65 25 |Op",&10A|,sprite%|
|000003d0| 2c 73 70 72 66 69 6c 65 | 24 0d 01 9a 05 e1 0d 01 |,sprfile|$.......|
|000003e0| a4 0f dd f2 74 65 6d 70 | 6c 61 74 65 73 0d 01 ae |....temp|lates...|
|000003f0| 18 ea 69 6e 64 62 6c 6b | 25 2c 69 6e 64 25 2c 62 |..indblk|%,ind%,b|
|00000400| 79 74 65 73 25 0d 01 b8 | 10 62 79 74 65 73 25 3d |ytes%...|.bytes%=|
|00000410| 26 31 30 30 30 0d 01 c2 | 1f de 69 6e 64 62 6c 6b |&1000...|..indblk|
|00000420| 25 62 79 74 65 73 25 3a | 69 6e 64 25 3d 69 6e 64 |%bytes%:|ind%=ind|
|00000430| 62 6c 6b 25 0d 01 cc 11 | e7 6f 73 76 65 72 25 3e |blk%....|.osver%>|
|00000440| 3d 33 31 30 8c 0d 01 d6 | 35 c8 99 22 57 69 6d 70 |=310....|5.."Wimp|
|00000450| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00000460| 22 3c 4e 75 6d 65 72 69 | 63 24 44 69 72 3e 2e 54 |"<Numeri|c$Dir>.T|
|00000470| 65 6d 70 6c 61 74 65 33 | 44 22 0d 01 e0 05 cc 0d |emplate3|D"......|
|00000480| 01 ea 35 c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 54 |..5.."Wi|mp_OpenT|
|00000490| 65 6d 70 6c 61 74 65 22 | 2c 2c 22 3c 4e 75 6d 65 |emplate"|,,"<Nume|
|000004a0| 72 69 63 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |ric$Dir>|.Templat|
|000004b0| 65 32 44 22 0d 01 f4 05 | cd 0d 01 fe 48 c8 99 22 |e2D"....|....H.."|
|000004c0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000004d0| 65 22 2c 2c 62 6c 6b 25 | 2c 69 6e 64 25 2c 69 6e |e",,blk%|,ind%,in|
|000004e0| 64 62 6c 6b 25 2b 62 79 | 74 65 73 25 2c 2d 31 2c |dblk%+by|tes%,-1,|
|000004f0| 22 70 72 6f 67 49 6e 66 | 6f 22 b8 2c 2c 69 6e 64 |"progInf|o".,,ind|
|00000500| 25 0d 02 08 28 c8 99 22 | 57 69 6d 70 5f 43 72 65 |%...(.."|Wimp_Cre|
|00000510| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6b 25 |ateWindo|w",,blk%|
|00000520| b8 77 68 5f 69 6e 66 6f | 25 0d 02 12 46 c8 99 22 |.wh_info|%...F.."|
|00000530| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00000540| 65 22 2c 2c 62 6c 6b 25 | 2c 69 6e 64 25 2c 69 6e |e",,blk%|,ind%,in|
|00000550| 64 62 6c 6b 25 2b 62 79 | 74 65 73 25 2c 2d 31 2c |dblk%+by|tes%,-1,|
|00000560| 22 6d 79 49 6e 66 6f 22 | b8 2c 2c 69 6e 64 25 0d |"myInfo"|.,,ind%.|
|00000570| 02 1c 1e 62 6c 6b 25 21 | 32 34 3d 2d 31 3a 62 6c |...blk%!|24=-1:bl|
|00000580| 6b 25 21 36 34 3d 73 70 | 72 69 74 65 25 0d 02 26 |k%!64=sp|rite%..&|
|00000590| 26 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |&.."Wimp|_CreateW|
|000005a0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6b 25 b8 77 68 5f |indow",,|blk%.wh_|
|000005b0| 6d 65 25 0d 02 30 43 c8 | 99 22 57 69 6d 70 5f 4c |me%..0C.|."Wimp_L|
|000005c0| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|000005d0| 6b 25 2c 69 6e 64 25 2c | 69 6e 64 62 6c 6b 25 2b |k%,ind%,|indblk%+|
|000005e0| 62 79 74 65 73 25 2c 2d | 31 2c 22 69 6e 74 22 b8 |bytes%,-|1,"int".|
|000005f0| 2c 2c 69 6e 64 25 0d 02 | 3a 1e 62 6c 6b 25 21 32 |,,ind%..|:.blk%!2|
|00000600| 34 3d 2d 31 3a 62 6c 6b | 25 21 36 34 3d 73 70 72 |4=-1:blk|%!64=spr|
|00000610| 69 74 65 25 0d 02 44 27 | c8 99 22 57 69 6d 70 5f |ite%..D'|.."Wimp_|
|00000620| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00000630| 6c 6b 25 b8 77 68 5f 69 | 6e 74 25 0d 02 4e 44 c8 |lk%.wh_i|nt%..ND.|
|00000640| 99 22 57 69 6d 70 5f 4c | 6f 61 64 54 65 6d 70 6c |."Wimp_L|oadTempl|
|00000650| 61 74 65 22 2c 2c 62 6c | 6b 25 2c 69 6e 64 25 2c |ate",,bl|k%,ind%,|
|00000660| 69 6e 64 62 6c 6b 25 2b | 62 79 74 65 73 25 2c 2d |indblk%+|bytes%,-|
|00000670| 31 2c 22 64 69 66 66 22 | b8 2c 2c 69 6e 64 25 0d |1,"diff"|.,,ind%.|
|00000680| 02 58 1e 62 6c 6b 25 21 | 32 34 3d 2d 31 3a 62 6c |.X.blk%!|24=-1:bl|
|00000690| 6b 25 21 36 34 3d 73 70 | 72 69 74 65 25 0d 02 62 |k%!64=sp|rite%..b|
|000006a0| 28 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |(.."Wimp|_CreateW|
|000006b0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6b 25 b8 77 68 5f |indow",,|blk%.wh_|
|000006c0| 64 69 66 66 25 0d 02 6c | 42 c8 99 22 57 69 6d 70 |diff%..l|B.."Wimp|
|000006d0| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|000006e0| 62 6c 6b 25 2c 69 6e 64 | 25 2c 69 6e 64 62 6c 6b |blk%,ind|%,indblk|
|000006f0| 25 2b 62 79 74 65 73 25 | 2c 2d 31 2c 22 6e 72 22 |%+bytes%|,-1,"nr"|
|00000700| b8 2c 2c 69 6e 64 25 0d | 02 76 1e 62 6c 6b 25 21 |.,,ind%.|.v.blk%!|
|00000710| 32 34 3d 2d 31 3a 62 6c | 6b 25 21 36 34 3d 73 70 |24=-1:bl|k%!64=sp|
|00000720| 72 69 74 65 25 0d 02 80 | 26 c8 99 22 57 69 6d 70 |rite%...|&.."Wimp|
|00000730| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000740| 62 6c 6b 25 b8 77 68 5f | 6e 72 25 0d 02 8a 43 c8 |blk%.wh_|nr%...C.|
|00000750| 99 22 57 69 6d 70 5f 4c | 6f 61 64 54 65 6d 70 6c |."Wimp_L|oadTempl|
|00000760| 61 74 65 22 2c 2c 62 6c | 6b 25 2c 69 6e 64 25 2c |ate",,bl|k%,ind%,|
|00000770| 69 6e 64 62 6c 6b 25 2b | 62 79 74 65 73 25 2c 2d |indblk%+|bytes%,-|
|00000780| 31 2c 22 73 75 6d 22 b8 | 2c 2c 69 6e 64 25 0d 02 |1,"sum".|,,ind%..|
|00000790| 94 1e 62 6c 6b 25 21 32 | 34 3d 2d 31 3a 62 6c 6b |..blk%!2|4=-1:blk|
|000007a0| 25 21 36 34 3d 73 70 72 | 69 74 65 25 0d 02 9e 27 |%!64=spr|ite%...'|
|000007b0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |.."Wimp_|CreateWi|
|000007c0| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 25 b8 77 68 5f 73 |ndow",,b|lk%.wh_s|
|000007d0| 75 6d 25 0d 02 a8 1a c8 | 99 22 57 69 6d 70 5f 43 |um%.....|."Wimp_C|
|000007e0| 6c 6f 73 65 54 65 6d 70 | 6c 61 74 65 22 0d 02 b2 |loseTemp|late"...|
|000007f0| 05 e1 0d 02 bc 0f dd f2 | 69 6e 69 74 6d 65 6e 75 |........|initmenu|
|00000800| 73 0d 02 c6 0a ea 76 6f | 69 64 25 0d 02 d0 14 de |s.....vo|id%.....|
|00000810| 6d 65 6e 75 5f 69 6e 64 | 69 72 25 26 31 30 30 0d |menu_ind|ir%&100.|
|00000820| 02 da 1f 6d 65 6e 75 5f | 69 6e 64 69 72 5f 70 74 |...menu_|indir_pt|
|00000830| 72 25 3d 6d 65 6e 75 5f | 69 6e 64 69 72 25 0d 02 |r%=menu_|indir%..|
|00000840| e4 67 6d 68 67 74 5f 69 | 62 61 72 25 3d a4 64 72 |.gmhgt_i|bar%=.dr|
|00000850| 61 77 6d 65 6e 75 28 6d | 68 5f 69 62 61 72 25 2c |awmenu(m|h_ibar%,|
|00000860| 22 4e 75 6d 65 72 69 63 | 2c 49 6e 66 6f 5f 2c 49 |"Numeric|,Info_,I|
|00000870| 6e 74 65 67 72 61 74 69 | 6f 6e 2c 44 69 66 66 65 |ntegrati|on,Diffe|
|00000880| 72 65 6e 74 69 61 74 69 | 6f 6e 2c 53 6f 6c 75 74 |rentiati|on,Solut|
|00000890| 69 6f 6e 2c 53 75 6d 6d | 61 74 69 6f 6e 5f 2c 51 |ion,Summ|ation_,Q|
|000008a0| 75 69 74 22 29 0d 02 ee | 18 6d 68 5f 69 62 61 72 |uit")...|.mh_ibar|
|000008b0| 25 21 33 32 3d 77 68 5f | 69 6e 66 6f 25 0d 02 f8 |%!32=wh_|info%...|
|000008c0| 31 76 6f 69 64 25 3d a4 | 64 72 61 77 6d 65 6e 75 |1void%=.|drawmenu|
|000008d0| 28 6d 68 5f 77 69 6e 73 | 25 2c 22 4e 75 6d 65 72 |(mh_wins|%,"Numer|
|000008e0| 69 63 2c 49 6e 66 6f 2c | 51 75 69 74 22 29 0d 03 |ic,Info,|Quit")..|
|000008f0| 02 18 6d 68 5f 77 69 6e | 73 25 21 33 32 3d 77 68 |..mh_win|s%!32=wh|
|00000900| 5f 69 6e 66 6f 25 0d 03 | 0c 05 e1 0d 03 16 19 dd |_info%..|........|
|00000910| a4 64 72 61 77 6d 65 6e | 75 28 6d 68 25 2c 6d 65 |.drawmen|u(mh%,me|
|00000920| 6e 75 24 29 0d 03 20 20 | ea 6d 61 78 77 69 64 74 |nu$).. |.maxwidt|
|00000930| 68 25 2c 77 69 64 74 68 | 25 2c 69 74 65 6d 24 2c |h%,width|%,item$,|
|00000940| 70 74 72 25 0d 03 2a 1e | 24 6d 68 25 3d c0 6d 65 |ptr%..*.|$mh%=.me|
|00000950| 6e 75 24 2c a7 6d 65 6e | 75 24 2c 22 2c 22 29 2d |nu$,.men|u$,",")-|
|00000960| 31 29 0d 03 34 15 6d 68 | 25 3f 31 32 3d 37 3a 6d |1)..4.mh|%?12=7:m|
|00000970| 68 25 3f 31 33 3d 32 0d | 03 3e 15 6d 68 25 3f 31 |h%?13=2.|.>.mh%?1|
|00000980| 34 3d 37 3a 6d 68 25 3f | 31 35 3d 30 0d 03 48 0d |4=7:mh%?|15=0..H.|
|00000990| 6d 68 25 21 32 30 3d 34 | 34 0d 03 52 18 6d 68 25 |mh%!20=4|4..R.mh%|
|000009a0| 21 32 34 3d 30 3a 70 74 | 72 25 3d 6d 68 25 2b 32 |!24=0:pt|r%=mh%+2|
|000009b0| 38 0d 03 5c 1b 6d 61 78 | 77 69 64 74 68 25 3d a7 |8..\.max|width%=.|
|000009c0| 6d 65 6e 75 24 2c 22 2c | 22 29 2d 31 0d 03 66 0e |menu$,",|")-1..f.|
|000009d0| 6d 65 6e 75 24 2b 3d 22 | 2c 22 0d 03 70 0d 68 65 |menu$+="|,"..p.he|
|000009e0| 69 67 68 74 25 3d 30 0d | 03 7a 0f c8 95 6d 65 6e |ight%=0.|.z...men|
|000009f0| 75 24 3c 3e 22 22 0d 03 | 84 1f 6d 65 6e 75 24 3d |u$<>""..|..menu$=|
|00000a00| c1 6d 65 6e 75 24 2c a7 | 6d 65 6e 75 24 2c 22 2c |.menu$,.|menu$,",|
|00000a10| 22 29 2b 31 29 0d 03 8e | 0f e7 6d 65 6e 75 24 3c |")+1)...|..menu$<|
|00000a20| 3e 22 22 8c 0d 03 98 0c | 70 74 72 25 21 30 3d 30 |>"".....|ptr%!0=0|
|00000a30| 0d 03 a2 0d 70 74 72 25 | 21 34 3d 2d 31 0d 03 ac |....ptr%|!4=-1...|
|00000a40| 13 70 74 72 25 21 38 3d | 26 37 30 30 30 30 32 31 |.ptr%!8=|&7000021|
|00000a50| 0d 03 b6 18 77 69 64 74 | 68 25 3d a7 6d 65 6e 75 |....widt|h%=.menu|
|00000a60| 24 2c 22 2c 22 29 2d 31 | 0d 03 c0 18 69 74 65 6d |$,",")-1|....item|
|00000a70| 24 3d c0 6d 65 6e 75 24 | 2c 77 69 64 74 68 25 29 |$=.menu$|,width%)|
|00000a80| 0d 03 ca 13 e7 c2 69 74 | 65 6d 24 2c 31 29 3d 22 |......it|em$,1)="|
|00000a90| 5f 22 8c 0d 03 d4 0d 77 | 69 64 74 68 25 2d 3d 31 |_".....w|idth%-=1|
|00000aa0| 0d 03 de 18 69 74 65 6d | 24 3d c0 69 74 65 6d 24 |....item|$=.item$|
|00000ab0| 2c 77 69 64 74 68 25 29 | 0d 03 e8 13 70 74 72 25 |,width%)|....ptr%|
|00000ac0| 21 30 3d 70 74 72 25 21 | 30 84 32 0d 03 f2 0f 68 |!0=ptr%!|0.2....h|
|00000ad0| 65 69 67 68 74 25 2b 3d | 32 34 0d 03 fc 05 cd 0d |eight%+=|24......|
|00000ae0| 04 06 26 e7 77 69 64 74 | 68 25 3e 6d 61 78 77 69 |..&.widt|h%>maxwi|
|00000af0| 64 74 68 25 8c 6d 61 78 | 77 69 64 74 68 25 3d 77 |dth%.max|width%=w|
|00000b00| 69 64 74 68 25 0d 04 10 | 0f e7 77 69 64 74 68 25 |idth%...|..width%|
|00000b10| 3e 31 32 8c 0d 04 1a 1d | 24 6d 65 6e 75 5f 69 6e |>12.....|$menu_in|
|00000b20| 64 69 72 5f 70 74 72 25 | 3d 69 74 65 6d 24 2b bd |dir_ptr%|=item$+.|
|00000b30| 30 0d 04 24 1b 70 74 72 | 25 21 31 32 3d 6d 65 6e |0..$.ptr|%!12=men|
|00000b40| 75 5f 69 6e 64 69 72 5f | 70 74 72 25 0d 04 2e 10 |u_indir_|ptr%....|
|00000b50| 70 74 72 25 21 31 36 3d | 62 6c 6b 25 0d 04 38 14 |ptr%!16=|blk%..8.|
|00000b60| 70 74 72 25 21 32 30 3d | 77 69 64 74 68 25 2b 31 |ptr%!20=|width%+1|
|00000b70| 0d 04 42 1d 6d 65 6e 75 | 5f 69 6e 64 69 72 5f 70 |..B.menu|_indir_p|
|00000b80| 74 72 25 2b 3d 77 69 64 | 74 68 25 2b 31 0d 04 4c |tr%+=wid|th%+1..L|
|00000b90| 16 70 74 72 25 21 38 3d | 70 74 72 25 21 38 84 26 |.ptr%!8=|ptr%!8.&|
|00000ba0| 31 30 30 0d 04 56 05 cc | 0d 04 60 14 24 28 70 74 |100..V..|..`.$(pt|
|00000bb0| 72 25 2b 31 32 29 3d 69 | 74 65 6d 24 0d 04 6a 05 |r%+12)=i|tem$..j.|
|00000bc0| cd 0d 04 74 1c 70 74 72 | 25 2b 3d 32 34 3a 68 65 |...t.ptr|%+=24:he|
|00000bd0| 69 67 68 74 25 2b 3d 6d | 68 25 21 32 30 0d 04 7e |ight%+=m|h%!20..~|
|00000be0| 05 cd 0d 04 88 05 ce 0d | 04 92 1a 6d 68 25 21 31 |........|...mh%!1|
|00000bf0| 36 3d 31 36 2a 6d 61 78 | 77 69 64 74 68 25 2b 31 |6=16*max|width%+1|
|00000c00| 36 0d 04 9c 19 70 74 72 | 25 21 2d 32 34 3d 70 74 |6....ptr|%!-24=pt|
|00000c10| 72 25 21 2d 32 34 84 26 | 38 30 0d 04 a6 0c 3d 68 |r%!-24.&|80....=h|
|00000c20| 65 69 67 68 74 25 0d 04 | b0 0d dd f2 69 63 6f 6e |eight%..|....icon|
|00000c30| 62 61 72 0d 04 ba 12 24 | 62 6c 6b 25 3d c4 26 46 |bar....$|blk%=.&F|
|00000c40| 46 2c bd 30 29 0d 04 c4 | 1f 62 6c 6b 25 21 30 3d |F,.0)...|.blk%!0=|
|00000c50| 2d 31 3a 62 6c 6b 25 21 | 34 3d 30 3a 62 6c 6b 25 |-1:blk%!|4=0:blk%|
|00000c60| 21 38 3d 30 0d 04 ce 19 | 62 6c 6b 25 21 31 32 3d |!8=0....|blk%!12=|
|00000c70| 39 36 3a 62 6c 6b 25 21 | 31 36 3d 36 38 0d 04 d8 |96:blk%!|16=68...|
|00000c80| 11 62 6c 6b 25 21 32 30 | 3d 26 33 30 30 32 0d 04 |.blk%!20|=&3002..|
|00000c90| e2 19 24 28 62 6c 6b 25 | 2b 32 34 29 3d 22 21 6e |..$(blk%|+24)="!n|
|00000ca0| 75 6d 65 72 69 63 22 0d | 04 ec 29 c8 99 22 57 69 |umeric".|..).."Wi|
|00000cb0| 6d 70 5f 43 72 65 61 74 | 65 49 63 6f 6e 22 2c 2c |mp_Creat|eIcon",,|
|00000cc0| 62 6c 6b 25 b8 69 68 5f | 69 63 6f 6e 62 61 72 25 |blk%.ih_|iconbar%|
|00000cd0| 0d 04 f6 05 e1 0d 05 00 | 0b dd f2 65 72 72 6f 72 |........|...error|
|00000ce0| 0d 05 0a 06 ef 34 0d 05 | 14 15 f1 f6 24 3b 22 20 |.....4..|....$;" |
|00000cf0| 61 74 20 6c 69 6e 65 20 | 22 3b 9e 0d 05 1e 18 c8 |at line |";......|
|00000d00| 99 22 58 48 6f 75 72 67 | 6c 61 73 73 5f 53 6d 61 |."XHourg|lass_Sma|
|00000d10| 73 68 22 0d 05 28 05 e1 | 0d 05 32 0f dd a4 77 69 |sh"..(..|..2...wi|
|00000d20| 6d 70 65 72 72 6f 72 0d | 05 3c 10 ea 65 25 2c 6d |mperror.|.<..e%,m|
|00000d30| 65 73 73 61 67 65 24 0d | 05 46 0f e7 70 6c 61 63 |essage$.|.F..plac|
|00000d40| 65 24 3d 22 22 8c 0d 05 | 50 4c 6d 65 73 73 61 67 |e$=""...|PLmessag|
|00000d50| 65 24 3d f6 24 2b 22 20 | 28 6c 69 6e 65 20 22 2b |e$=.$+" |(line "+|
|00000d60| c3 9e 2b 22 29 22 2b 22 | 20 2d 20 50 72 65 73 73 |..+")"+"| - Press|
|00000d70| 20 4f 4b 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 20 | OK to c|ontinue |
|00000d80| 6f 72 20 43 61 6e 63 65 | 6c 20 74 6f 20 71 75 69 |or Cance|l to qui|
|00000d90| 74 22 0d 05 5a 05 cc 0d | 05 64 4b 6d 65 73 73 61 |t"..Z...|.dKmessa|
|00000da0| 67 65 24 3d f6 24 2b 22 | 20 28 69 6e 20 22 2b 70 |ge$=.$+"| (in "+p|
|00000db0| 6c 61 63 65 24 2b 22 29 | 20 2d 20 50 72 65 73 73 |lace$+")| - Press|
|00000dc0| 20 4f 4b 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 20 | OK to c|ontinue |
|00000dd0| 6f 72 20 43 61 6e 63 65 | 6c 20 74 6f 20 71 75 69 |or Cance|l to qui|
|00000de0| 74 22 0d 05 6e 21 65 25 | 3d a4 65 72 72 6f 72 62 |t"..n!e%|=.errorb|
|00000df0| 6f 78 28 9f 2c 6d 65 73 | 73 61 67 65 24 2c 25 31 |ox(.,mes|sage$,%1|
|00000e00| 31 31 29 0d 05 78 16 e7 | 65 25 8c f2 63 6c 6f 73 |11)..x..|e%..clos|
|00000e10| 65 3a 71 75 69 74 25 3d | b9 0d 05 82 07 3d 65 25 |e:quit%=|.....=e%|
|00000e20| 0d 05 8c 24 dd a4 65 72 | 72 6f 72 62 6f 78 28 65 |...$..er|rorbox(e|
|00000e30| 72 72 25 2c 6d 65 73 73 | 61 67 65 24 2c 66 6c 61 |rr%,mess|age$,fla|
|00000e40| 67 73 25 29 0d 05 96 17 | 62 6c 6b 25 21 30 3d 9f |gs%)....|blk%!0=.|
|00000e50| 2b 28 74 61 73 6b 25 3c | 3c 38 29 0d 05 a0 19 24 |+(task%<|<8)....$|
|00000e60| 28 62 6c 6b 25 2b 34 29 | 3d 6d 65 73 73 61 67 65 |(blk%+4)|=message|
|00000e70| 24 2b bd 30 0d 05 aa 38 | c8 99 22 57 69 6d 70 5f |$+.0...8|.."Wimp_|
|00000e80| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 6c 6b |ReportEr|ror",blk|
|00000e90| 25 2c 66 6c 61 67 73 25 | 2c 61 70 70 6e 61 6d 65 |%,flags%|,appname|
|00000ea0| 24 b8 2c 72 65 73 70 6f | 6e 73 65 25 0d 05 b4 13 |$.,respo|nse%....|
|00000eb0| e7 72 65 73 70 6f 6e 73 | 65 25 3d 32 8c 3d b9 0d |.respons|e%=2.=..|
|00000ec0| 05 be 06 3d a3 0d 05 c8 | 0a dd f2 70 6f 6c 6c 0d |...=....|...poll.|
|00000ed0| 05 d2 2d c8 99 22 57 69 | 6d 70 5f 50 6f 6c 6c 22 |..-.."Wi|mp_Poll"|
|00000ee0| 2c 25 31 31 30 30 30 30 | 30 31 31 30 30 30 31 2c |,%110000|0110001,|
|00000ef0| 62 6c 6b 25 b8 72 65 61 | 73 6f 6e 25 0d 05 dc 0e |blk%.rea|son%....|
|00000f00| c8 8e 72 65 61 73 6f 6e | 25 ca 0d 05 e6 20 c9 32 |..reason|%.... .2|
|00000f10| 3a c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |:.."Wimp|_OpenWin|
|00000f20| 64 6f 77 22 2c 2c 62 6c | 6b 25 0d 05 f0 21 c9 33 |dow",,bl|k%...!.3|
|00000f30| 3a c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |:.."Wimp|_CloseWi|
|00000f40| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 25 0d 05 fa 0f c9 |ndow",,b|lk%.....|
|00000f50| 36 3a f2 62 75 74 74 6f | 6e 73 0d 06 04 06 c9 38 |6:.butto|ns.....8|
|00000f60| 0d 06 0e 0e c8 8e 62 6c | 6b 25 21 32 34 ca 0d 06 |......bl|k%!24...|
|00000f70| 18 0e c9 31 33 3a f2 65 | 6e 74 65 72 0d 06 22 0e |...13:.e|nter..".|
|00000f80| c9 33 39 38 3a f2 64 6f | 77 6e 0d 06 2c 0c c9 33 |.398:.do|wn..,..3|
|00000f90| 39 39 3a f2 75 70 0d 06 | 36 21 7f 3a c8 99 22 57 |99:.up..|6!.:.."W|
|00000fa0| 69 6d 70 5f 50 72 6f 63 | 65 73 73 4b 65 79 22 2c |imp_Proc|essKey",|
|00000fb0| 62 6c 6b 25 21 32 34 0d | 06 40 05 cb 0d 06 4a 12 |blk%!24.|.@....J.|
|00000fc0| c9 39 3a f2 6d 65 6e 75 | 73 65 6c 65 63 74 0d 06 |.9:.menu|select..|
|00000fd0| 54 1d c9 31 37 2c 31 38 | 3a e7 62 6c 6b 25 21 31 |T..17,18|:.blk%!1|
|00000fe0| 36 3d 30 8c 71 75 69 74 | 25 3d b9 0d 06 5e 05 cb |6=0.quit|%=...^..|
|00000ff0| 0d 06 68 05 e1 0d 06 72 | 0b dd f2 63 6c 6f 73 65 |..h....r|...close|
|00001000| 0d 06 7c 26 c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |..|&.."W|imp_Clos|
|00001010| 65 44 6f 77 6e 22 2c 74 | 61 73 6b 25 2c 26 34 42 |eDown",t|ask%,&4B|
|00001020| 35 33 34 31 35 34 0d 06 | 86 05 e1 0d 06 90 15 dd |534154..|........|
|00001030| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 77 68 25 29 |.openwin|dow(wh%)|
|00001040| 0d 06 9a 0e 62 6c 6b 25 | 21 30 3d 77 68 25 0d 06 |....blk%|!0=wh%..|
|00001050| a4 21 c8 99 22 57 69 6d | 70 5f 47 65 74 57 69 6e |.!.."Wim|p_GetWin|
|00001060| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6b 25 0d |dowState|",,blk%.|
|00001070| 06 ae 0e 62 6c 6b 25 21 | 32 38 3d 2d 31 0d 06 b8 |...blk%!|28=-1...|
|00001080| 1d c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |..."Wimp|_OpenWin|
|00001090| 64 6f 77 22 2c 2c 62 6c | 6b 25 0d 06 c2 05 e1 0d |dow",,bl|k%......|
|000010a0| 06 cc 16 dd f2 63 6c 6f | 73 65 77 69 6e 64 6f 77 |.....clo|sewindow|
|000010b0| 28 77 68 25 29 0d 06 d6 | 0e 62 6c 6b 25 21 30 3d |(wh%)...|.blk%!0=|
|000010c0| 77 68 25 0d 06 e0 21 c8 | 99 22 57 69 6d 70 5f 47 |wh%...!.|."Wimp_G|
|000010d0| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|000010e0| 62 6c 6b 25 0d 06 ea 1e | c8 99 22 57 69 6d 70 5f |blk%....|.."Wimp_|
|000010f0| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |CloseWin|dow",,bl|
|00001100| 6b 25 0d 06 f4 05 e1 0d | 06 fe 0d dd f2 62 75 74 |k%......|.....but|
|00001110| 74 6f 6e 73 0d 07 08 23 | 78 25 3d 62 6c 6b 25 21 |tons...#|x%=blk%!|
|00001120| 30 3a 79 25 3d 62 6c 6b | 25 21 34 3a 62 75 74 25 |0:y%=blk|%!4:but%|
|00001130| 3d 62 6c 6b 25 21 38 0d | 07 12 1e 77 69 6e 25 3d |=blk%!8.|...win%=|
|00001140| 62 6c 6b 25 21 31 32 3a | 69 63 6f 6e 25 3d 62 6c |blk%!12:|icon%=bl|
|00001150| 6b 25 21 31 36 0d 07 1c | 0b c8 8e 77 69 6e 25 ca |k%!16...|...win%.|
|00001160| 0d 07 26 0d c9 77 68 5f | 69 62 61 72 25 0d 07 30 |..&..wh_|ibar%..0|
|00001170| 25 e7 62 75 74 25 3d 32 | 8c f2 73 68 6f 77 6d 65 |%.but%=2|..showme|
|00001180| 6e 75 28 6d 68 5f 69 62 | 61 72 25 2c 78 25 2c 79 |nu(mh_ib|ar%,x%,y|
|00001190| 25 29 0d 07 3a 0d c9 77 | 68 5f 69 6e 66 6f 25 0d |%)..:..w|h_info%.|
|000011a0| 07 44 28 e7 62 75 74 25 | 3d 34 80 20 69 63 6f 6e |.D(.but%|=4. icon|
|000011b0| 25 3d 33 8c f2 6f 70 65 | 6e 77 69 6e 64 6f 77 28 |%=3..ope|nwindow(|
|000011c0| 77 68 5f 6d 65 25 29 0d | 07 4e 0b c9 77 68 5f 6d |wh_me%).|.N..wh_m|
|000011d0| 65 25 0d 07 58 18 f2 63 | 6c 6f 73 65 77 69 6e 64 |e%..X..c|losewind|
|000011e0| 6f 77 28 77 68 5f 6d 65 | 25 29 0d 07 62 0c c9 77 |ow(wh_me|%)..b..w|
|000011f0| 68 5f 69 6e 74 25 0d 07 | 6c 1f e7 62 75 74 25 3d |h_int%..|l..but%=|
|00001200| 34 80 20 69 63 6f 6e 25 | 3d 32 8c f2 69 6e 74 65 |4. icon%|=2..inte|
|00001210| 67 72 61 74 65 0d 07 76 | 25 e7 62 75 74 25 3d 32 |grate..v|%.but%=2|
|00001220| 8c f2 73 68 6f 77 6d 65 | 6e 75 28 6d 68 5f 77 69 |..showme|nu(mh_wi|
|00001230| 6e 73 25 2c 78 25 2c 79 | 25 29 0d 07 80 0d c9 77 |ns%,x%,y|%).....w|
|00001240| 68 5f 64 69 66 66 25 0d | 07 8a 1a e7 62 75 74 25 |h_diff%.|....but%|
|00001250| 3d 34 80 20 69 63 6f 6e | 25 3d 32 8c f2 64 69 66 |=4. icon|%=2..dif|
|00001260| 66 0d 07 94 25 e7 62 75 | 74 25 3d 32 8c f2 73 68 |f...%.bu|t%=2..sh|
|00001270| 6f 77 6d 65 6e 75 28 6d | 68 5f 77 69 6e 73 25 2c |owmenu(m|h_wins%,|
|00001280| 78 25 2c 79 25 29 0d 07 | 9e 0b c9 77 68 5f 6e 72 |x%,y%)..|...wh_nr|
|00001290| 25 0d 07 a8 18 e7 62 75 | 74 25 3d 34 80 20 69 63 |%.....bu|t%=4. ic|
|000012a0| 6f 6e 25 3d 32 8c f2 6e | 72 0d 07 b2 25 e7 62 75 |on%=2..n|r...%.bu|
|000012b0| 74 25 3d 32 8c f2 73 68 | 6f 77 6d 65 6e 75 28 6d |t%=2..sh|owmenu(m|
|000012c0| 68 5f 77 69 6e 73 25 2c | 78 25 2c 79 25 29 0d 07 |h_wins%,|x%,y%)..|
|000012d0| bc 0c c9 77 68 5f 73 75 | 6d 25 0d 07 c6 19 e7 62 |...wh_su|m%.....b|
|000012e0| 75 74 25 3d 34 80 20 69 | 63 6f 6e 25 3d 32 8c f2 |ut%=4. i|con%=2..|
|000012f0| 73 75 6d 0d 07 d0 25 e7 | 62 75 74 25 3d 32 8c f2 |sum...%.|but%=2..|
|00001300| 73 68 6f 77 6d 65 6e 75 | 28 6d 68 5f 77 69 6e 73 |showmenu|(mh_wins|
|00001310| 25 2c 78 25 2c 79 25 29 | 0d 07 da 05 cb 0d 07 e4 |%,x%,y%)|........|
|00001320| 05 e1 0d 07 ee 10 dd f2 | 6d 65 6e 75 73 65 6c 65 |........|menusele|
|00001330| 63 74 0d 07 f8 1c ea 73 | 65 6c 31 24 2c 73 65 6c |ct.....s|el1$,sel|
|00001340| 32 24 2c 6d 68 25 2c 61 | 64 6a 75 73 74 25 0d 08 |2$,mh%,a|djust%..|
|00001350| 02 0b c8 8e 77 69 6e 25 | ca 0d 08 0c 1a c9 77 68 |....win%|......wh|
|00001360| 5f 69 62 61 72 25 3a 6d | 68 25 3d 6d 68 5f 69 62 |_ibar%:m|h%=mh_ib|
|00001370| 61 72 25 0d 08 16 12 7f | 3a 6d 68 25 3d 6d 68 5f |ar%.....|:mh%=mh_|
|00001380| 77 69 6e 73 25 0d 08 20 | 05 cb 0d 08 2a 27 c8 99 |wins%.. |....*'..|
|00001390| 22 57 69 6d 70 5f 44 65 | 63 6f 64 65 4d 65 6e 75 |"Wimp_De|codeMenu|
|000013a0| 22 2c 2c 6d 68 25 2c 62 | 6c 6b 25 2c 62 6c 6b 32 |",,mh%,b|lk%,blk2|
|000013b0| 25 0d 08 34 1e f2 73 70 | 6c 69 74 28 24 62 6c 6b |%..4..sp|lit($blk|
|000013c0| 32 25 2c 73 65 6c 31 24 | 2c 73 65 6c 32 24 29 0d |2%,sel1$|,sel2$).|
|000013d0| 08 3e 21 c8 99 22 57 69 | 6d 70 5f 47 65 74 50 6f |.>!.."Wi|mp_GetPo|
|000013e0| 69 6e 74 65 72 49 6e 66 | 6f 22 2c 2c 62 6c 6b 25 |interInf|o",,blk%|
|000013f0| 0d 08 48 15 61 64 6a 75 | 73 74 25 3d 62 6c 6b 25 |..H.adju|st%=blk%|
|00001400| 21 38 80 20 31 0d 08 52 | 08 c8 8e b9 ca 0d 08 5c |!8. 1..R|.......\|
|00001410| 19 c9 73 65 6c 31 24 3d | 22 51 75 69 74 22 3a 71 |..sel1$=|"Quit":q|
|00001420| 75 69 74 25 3d b9 0d 08 | 66 29 c9 c0 73 65 6c 31 |uit%=...|f)..sel1|
|00001430| 24 2c 33 29 3d 22 49 6e | 74 22 3a f2 6f 70 65 6e |$,3)="In|t":.open|
|00001440| 77 69 6e 64 6f 77 28 77 | 68 5f 69 6e 74 25 29 0d |window(w|h_int%).|
|00001450| 08 70 2b c9 c0 73 65 6c | 31 24 2c 34 29 3d 22 44 |.p+..sel|1$,4)="D|
|00001460| 69 66 66 22 3a f2 6f 70 | 65 6e 77 69 6e 64 6f 77 |iff":.op|enwindow|
|00001470| 28 77 68 5f 64 69 66 66 | 25 29 0d 08 7a 28 c9 c0 |(wh_diff|%)..z(..|
|00001480| 73 65 6c 31 24 2c 33 29 | 3d 22 53 6f 6c 22 3a f2 |sel1$,3)|="Sol":.|
|00001490| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 77 68 5f 6e 72 |openwind|ow(wh_nr|
|000014a0| 25 29 0d 08 84 29 c9 c0 | 73 65 6c 31 24 2c 33 29 |%)...)..|sel1$,3)|
|000014b0| 3d 22 53 75 6d 22 3a f2 | 6f 70 65 6e 77 69 6e 64 |="Sum":.|openwind|
|000014c0| 6f 77 28 77 68 5f 73 75 | 6d 25 29 0d 08 8e 05 cb |ow(wh_su|m%).....|
|000014d0| 0d 08 98 0c e7 ac 71 75 | 69 74 25 8c 0d 08 a2 23 |......qu|it%....#|
|000014e0| e7 61 64 6a 75 73 74 25 | 3d 31 8c f2 73 68 6f 77 |.adjust%|=1..show|
|000014f0| 6d 65 6e 75 28 6d 68 25 | 2c 78 25 2c 79 25 29 0d |menu(mh%|,x%,y%).|
|00001500| 08 ac 05 cd 0d 08 b6 05 | e1 0d 08 c0 21 dd f2 73 |........|....!..s|
|00001510| 70 6c 69 74 28 74 65 78 | 74 24 2c f8 66 69 72 73 |plit(tex|t$,.firs|
|00001520| 74 24 2c f8 72 65 73 74 | 24 29 0d 08 ca 13 e7 a7 |t$,.rest|$)......|
|00001530| 74 65 78 74 24 2c 22 2e | 22 29 3d 30 8c 0d 08 d4 |text$,".|")=0....|
|00001540| 10 66 69 72 73 74 24 3d | 74 65 78 74 24 0d 08 de |.first$=|text$...|
|00001550| 0c 72 65 73 74 24 3d 22 | 22 0d 08 e8 05 cc 0d 08 |.rest$="|".......|
|00001560| f2 20 66 69 72 73 74 24 | 3d c0 74 65 78 74 24 2c |. first$|=.text$,|
|00001570| a7 74 65 78 74 24 2c 22 | 2e 22 29 2d 31 29 0d 08 |.text$,"|.")-1)..|
|00001580| fc 26 72 65 73 74 24 3d | c2 74 65 78 74 24 2c a9 |.&rest$=|.text$,.|
|00001590| 28 74 65 78 74 24 29 2d | a7 74 65 78 74 24 2c 22 |(text$)-|.text$,"|
|000015a0| 2e 22 29 29 0d 09 06 05 | cd 0d 09 10 05 e1 0d 09 |."))....|........|
|000015b0| 1a 1b dd f2 73 68 6f 77 | 6d 65 6e 75 28 6d 65 6e |....show|menu(men|
|000015c0| 75 25 2c 78 25 2c 79 25 | 29 0d 09 24 0a ea 79 70 |u%,x%,y%|)..$..yp|
|000015d0| 6f 73 25 0d 09 2e 32 e7 | 77 69 6e 25 3d 77 68 5f |os%...2.|win%=wh_|
|000015e0| 69 62 61 72 25 8c 79 70 | 6f 73 25 3d 39 36 2b 6d |ibar%.yp|os%=96+m|
|000015f0| 68 67 74 5f 69 62 61 72 | 25 8b 79 70 6f 73 25 3d |hgt_ibar|%.ypos%=|
|00001600| 79 25 2b 32 30 0d 09 38 | 2a c8 99 22 57 69 6d 70 |y%+20..8|*.."Wimp|
|00001610| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 6d 65 |_CreateM|enu",,me|
|00001620| 6e 75 25 2c 78 25 2d 36 | 34 2c 79 70 6f 73 25 0d |nu%,x%-6|4,ypos%.|
|00001630| 09 42 05 e1 0d 09 4c 1d | dd a4 72 65 61 64 69 63 |.B....L.|..readic|
|00001640| 6f 6e 74 65 78 74 28 77 | 68 25 2c 69 63 6f 6e 25 |ontext(w|h%,icon%|
|00001650| 29 0d 09 56 1c 21 62 6c | 6b 32 25 3d 77 68 25 3a |)..V.!bl|k2%=wh%:|
|00001660| 62 6c 6b 32 25 21 34 3d | 69 63 6f 6e 25 0d 09 60 |blk2%!4=|icon%..`|
|00001670| 20 c8 99 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e | .."Wimp|_GetIcon|
|00001680| 53 74 61 74 65 22 2c 2c | 62 6c 6b 32 25 0d 09 6a |State",,|blk2%..j|
|00001690| 0d 3d 62 6c 6b 32 25 21 | 32 38 0d 09 74 24 dd f2 |.=blk2%!|28..t$..|
|000016a0| 77 72 69 74 65 69 63 6f | 6e 74 65 78 74 28 77 68 |writeico|ntext(wh|
|000016b0| 25 2c 69 63 6f 6e 25 2c | 74 65 78 74 24 29 0d 09 |%,icon%,|text$)..|
|000016c0| 7e 1f 61 25 3d a4 72 65 | 61 64 69 63 6f 6e 74 65 |~.a%=.re|adiconte|
|000016d0| 78 74 28 77 68 25 2c 69 | 63 6f 6e 25 29 0d 09 88 |xt(wh%,i|con%)...|
|000016e0| 0d 24 61 25 3d 74 65 78 | 74 24 0d 09 92 0f 62 6c |.$a%=tex|t$....bl|
|000016f0| 6b 32 25 21 30 3d 77 68 | 25 0d 09 9c 11 62 6c 6b |k2%!0=wh|%....blk|
|00001700| 32 25 21 34 3d 69 63 6f | 6e 25 0d 09 a6 18 62 6c |2%!4=ico|n%....bl|
|00001710| 6b 32 25 21 38 3d 30 3a | 62 6c 6b 32 25 21 31 32 |k2%!8=0:|blk2%!12|
|00001720| 3d 30 0d 09 b0 20 c8 99 | 22 57 69 6d 70 5f 53 65 |=0... ..|"Wimp_Se|
|00001730| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6b |tIconSta|te",,blk|
|00001740| 32 25 0d 09 ba 05 e1 0d | 09 c4 08 dd f2 75 70 0d |2%......|.....up.|
|00001750| 09 ce 1b ea 77 69 6e 25 | 2c 69 63 6f 6e 25 2c 6f |....win%|,icon%,o|
|00001760| 6c 64 6c 25 2c 6e 65 77 | 6c 25 0d 09 d8 1c 77 69 |ldl%,new|l%....wi|
|00001770| 6e 25 3d 62 6c 6b 25 21 | 30 3a 69 63 6f 6e 25 3d |n%=blk%!|0:icon%=|
|00001780| 62 6c 6b 25 21 34 0d 09 | e2 23 c8 99 22 57 69 6d |blk%!4..|.#.."Wim|
|00001790| 70 5f 47 65 74 43 61 72 | 65 74 50 6f 73 69 74 69 |p_GetCar|etPositi|
|000017a0| 6f 6e 22 2c 2c 62 6c 6b | 25 0d 09 ec 11 6f 6c 64 |on",,blk|%....old|
|000017b0| 6c 25 3d 62 6c 6b 25 21 | 32 30 0d 09 f6 1f e7 77 |l%=blk%!|20.....w|
|000017c0| 69 6e 25 3d 77 68 5f 69 | 6e 74 25 84 77 69 6e 25 |in%=wh_i|nt%.win%|
|000017d0| 3d 77 68 5f 73 75 6d 25 | 8c 0d 0a 00 1b 69 63 6f |=wh_sum%|.....ico|
|000017e0| 6e 25 3d 28 28 69 63 6f | 6e 25 2d 33 2b 32 29 83 |n%=((ico|n%-3+2).|
|000017f0| 33 29 2b 33 0d 0a 0a 05 | cc 0d 0a 14 1b 69 63 6f |3)+3....|.....ico|
|00001800| 6e 25 3d 28 28 69 63 6f | 6e 25 2d 33 2b 31 29 83 |n%=((ico|n%-3+1).|
|00001810| 32 29 2b 33 0d 0a 1e 05 | cd 0d 0a 28 27 6e 65 77 |2)+3....|...('new|
|00001820| 6c 25 3d a9 28 24 a4 72 | 65 61 64 69 63 6f 6e 74 |l%=.($.r|eadicont|
|00001830| 65 78 74 28 77 69 6e 25 | 2c 69 63 6f 6e 25 29 29 |ext(win%|,icon%))|
|00001840| 0d 0a 32 1c e7 6e 65 77 | 6c 25 3e 6f 6c 64 6c 25 |..2..new|l%>oldl%|
|00001850| 8c 6e 65 77 6c 25 3d 6f | 6c 64 6c 25 0d 0a 3c 33 |.newl%=o|ldl%..<3|
|00001860| c8 99 22 57 69 6d 70 5f | 53 65 74 43 61 72 65 74 |.."Wimp_|SetCaret|
|00001870| 50 6f 73 69 74 69 6f 6e | 22 2c 77 69 6e 25 2c 69 |Position|",win%,i|
|00001880| 63 6f 6e 25 2c 2c 2c 2d | 31 2c 6e 65 77 6c 25 0d |con%,,,-|1,newl%.|
|00001890| 0a 46 05 e1 0d 0a 50 0a | dd f2 64 6f 77 6e 0d 0a |.F....P.|..down..|
|000018a0| 5a 0f ea 77 69 6e 25 2c | 69 63 6f 6e 25 0d 0a 64 |Z..win%,|icon%..d|
|000018b0| 1c 77 69 6e 25 3d 62 6c | 6b 25 21 30 3a 69 63 6f |.win%=bl|k%!0:ico|
|000018c0| 6e 25 3d 62 6c 6b 25 21 | 34 0d 0a 6e 23 c8 99 22 |n%=blk%!|4..n#.."|
|000018d0| 57 69 6d 70 5f 47 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Get|CaretPos|
|000018e0| 69 74 69 6f 6e 22 2c 2c | 62 6c 6b 25 0d 0a 78 11 |ition",,|blk%..x.|
|000018f0| 6f 6c 64 6c 25 3d 62 6c | 6b 25 21 32 30 0d 0a 82 |oldl%=bl|k%!20...|
|00001900| 1f e7 77 69 6e 25 3d 77 | 68 5f 69 6e 74 25 84 77 |..win%=w|h_int%.w|
|00001910| 69 6e 25 3d 77 68 5f 73 | 75 6d 25 8c 0d 0a 8c 1b |in%=wh_s|um%.....|
|00001920| 69 63 6f 6e 25 3d 28 28 | 69 63 6f 6e 25 2d 33 2b |icon%=((|icon%-3+|
|00001930| 31 29 83 33 29 2b 33 0d | 0a 96 05 cc 0d 0a a0 1b |1).3)+3.|........|
|00001940| 69 63 6f 6e 25 3d 28 28 | 69 63 6f 6e 25 2d 33 2b |icon%=((|icon%-3+|
|00001950| 31 29 83 32 29 2b 33 0d | 0a aa 05 cd 0d 0a b4 27 |1).2)+3.|.......'|
|00001960| 6e 65 77 6c 25 3d a9 28 | 24 a4 72 65 61 64 69 63 |newl%=.(|$.readic|
|00001970| 6f 6e 74 65 78 74 28 77 | 69 6e 25 2c 69 63 6f 6e |ontext(w|in%,icon|
|00001980| 25 29 29 0d 0a be 1c e7 | 6e 65 77 6c 25 3e 6f 6c |%)).....|newl%>ol|
|00001990| 64 6c 25 8c 6e 65 77 6c | 25 3d 6f 6c 64 6c 25 0d |dl%.newl|%=oldl%.|
|000019a0| 0a c8 33 c8 99 22 57 69 | 6d 70 5f 53 65 74 43 61 |..3.."Wi|mp_SetCa|
|000019b0| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 77 69 6e |retPosit|ion",win|
|000019c0| 25 2c 69 63 6f 6e 25 2c | 2c 2c 2d 31 2c 6e 65 77 |%,icon%,|,,-1,new|
|000019d0| 6c 25 0d 0a d2 05 e1 0d | 0a dc 0b dd f2 65 6e 74 |l%......|.....ent|
|000019e0| 65 72 0d 0a e6 0f ea 77 | 69 6e 25 2c 69 63 6f 6e |er.....w|in%,icon|
|000019f0| 25 0d 0a f0 1c 77 69 6e | 25 3d 62 6c 6b 25 21 30 |%....win|%=blk%!0|
|00001a00| 3a 69 63 6f 6e 25 3d 62 | 6c 6b 25 21 34 0d 0a fa |:icon%=b|lk%!4...|
|00001a10| 1f e7 77 69 6e 25 3d 77 | 68 5f 69 6e 74 25 84 77 |..win%=w|h_int%.w|
|00001a20| 69 6e 25 3d 77 68 5f 73 | 75 6d 25 8c 0d 0b 04 0d |in%=wh_s|um%.....|
|00001a30| e7 69 63 6f 6e 25 3d 35 | 8c 0d 0b 0e 21 e7 77 69 |.icon%=5|....!.wi|
|00001a40| 6e 25 3d 77 68 5f 69 6e | 74 25 8c f2 69 6e 74 65 |n%=wh_in|t%..inte|
|00001a50| 67 72 61 74 65 8b f2 73 | 75 6d 0d 0b 18 05 cd 0d |grate..s|um......|
|00001a60| 0b 22 09 f2 64 6f 77 6e | 0d 0b 2c 05 cc 0d 0b 36 |."..down|..,....6|
|00001a70| 0d e7 69 63 6f 6e 25 3d | 34 8c 0d 0b 40 1a e7 77 |..icon%=|4...@..w|
|00001a80| 69 6e 25 3d 77 68 5f 6e | 72 25 8c f2 6e 72 8b f2 |in%=wh_n|r%..nr..|
|00001a90| 64 69 66 66 0d 0b 4a 05 | cd 0d 0b 54 09 f2 64 6f |diff..J.|...T..do|
|00001aa0| 77 6e 0d 0b 5e 05 cd 0d | 0b 68 05 e1 0d 0b 72 0f |wn..^...|.h....r.|
|00001ab0| dd f2 69 6e 74 65 67 72 | 61 74 65 0d 0b 7c 2a 79 |..integr|ate..|*y|
|00001ac0| 24 3d a4 74 6f 75 70 70 | 65 72 28 24 a4 72 65 61 |$=.toupp|er($.rea|
|00001ad0| 64 69 63 6f 6e 74 65 78 | 74 28 77 68 5f 69 6e 74 |dicontex|t(wh_int|
|00001ae0| 25 2c 33 29 29 0d 0b 86 | 2e 6c 6f 77 65 72 24 3d |%,3))...|.lower$=|
|00001af0| a4 74 6f 75 70 70 65 72 | 28 24 a4 72 65 61 64 69 |.toupper|($.readi|
|00001b00| 63 6f 6e 74 65 78 74 28 | 77 68 5f 69 6e 74 25 2c |context(|wh_int%,|
|00001b10| 34 29 29 0d 0b 90 2e 75 | 70 70 65 72 24 3d a4 74 |4))....u|pper$=.t|
|00001b20| 6f 75 70 70 65 72 28 24 | a4 72 65 61 64 69 63 6f |oupper($|.readico|
|00001b30| 6e 74 65 78 74 28 77 68 | 5f 69 6e 74 25 2c 35 29 |ntext(wh|_int%,5)|
|00001b40| 29 0d 0b 9a 0e 73 74 65 | 70 73 25 3d 32 30 30 0d |)....ste|ps%=200.|
|00001b50| 0b a4 18 70 6c 61 63 65 | 24 3d 22 6c 6f 77 65 72 |...place|$="lower|
|00001b60| 20 6c 69 6d 69 74 22 0d | 0b ae 13 6c 6f 77 65 72 | limit".|...lower|
|00001b70| 3d a0 28 6c 6f 77 65 72 | 24 29 0d 0b b8 18 70 6c |=.(lower|$)....pl|
|00001b80| 61 63 65 24 3d 22 75 70 | 70 65 72 20 6c 69 6d 69 |ace$="up|per limi|
|00001b90| 74 22 0d 0b c2 13 75 70 | 70 65 72 3d a0 28 75 70 |t"....up|per=.(up|
|00001ba0| 70 65 72 24 29 0d 0b cc | 1b 64 78 3d 28 75 70 70 |per$)...|.dx=(upp|
|00001bb0| 65 72 2d 6c 6f 77 65 72 | 29 2f 73 74 65 70 73 25 |er-lower|)/steps%|
|00001bc0| 0d 0b d6 15 70 6c 61 63 | 65 24 3d 22 66 75 6e 63 |....plac|e$="func|
|00001bd0| 74 69 6f 6e 22 0d 0b e0 | 14 c8 99 22 48 6f 75 72 |tion"...|..."Hour|
|00001be0| 67 6c 61 73 73 5f 4f 6e | 22 0d 0b ea 09 f2 63 61 |glass_On|".....ca|
|00001bf0| 6c 63 0d 0b f4 22 f2 77 | 72 69 74 65 69 63 6f 6e |lc...".w|riteicon|
|00001c00| 74 65 78 74 28 77 68 5f | 69 6e 74 25 2c 36 2c 61 |text(wh_|int%,6,a|
|00001c10| 6e 73 24 29 0d 0b fe 22 | f2 77 72 69 74 65 69 63 |ns$)..."|.writeic|
|00001c20| 6f 6e 74 65 78 74 28 77 | 68 5f 69 6e 74 25 2c 37 |ontext(w|h_int%,7|
|00001c30| 2c 70 77 72 24 29 0d 0c | 08 35 79 24 3d 22 41 42 |,pwr$)..|.5y$="AB|
|00001c40| 53 28 22 2b a4 74 6f 75 | 70 70 65 72 28 24 a4 72 |S("+.tou|pper($.r|
|00001c50| 65 61 64 69 63 6f 6e 74 | 65 78 74 28 77 68 5f 69 |eadicont|ext(wh_i|
|00001c60| 6e 74 25 2c 33 29 29 2b | 22 29 22 0d 0c 12 09 f2 |nt%,3))+|")".....|
|00001c70| 63 61 6c 63 0d 0c 1c 22 | f2 77 72 69 74 65 69 63 |calc..."|.writeic|
|00001c80| 6f 6e 74 65 78 74 28 77 | 68 5f 69 6e 74 25 2c 38 |ontext(w|h_int%,8|
|00001c90| 2c 61 6e 73 24 29 0d 0c | 26 22 f2 77 72 69 74 65 |,ans$)..|&".write|
|00001ca0| 69 63 6f 6e 74 65 78 74 | 28 77 68 5f 69 6e 74 25 |icontext|(wh_int%|
|00001cb0| 2c 39 2c 70 77 72 24 29 | 0d 0c 30 37 79 24 3d 22 |,9,pwr$)|..07y$="|
|00001cc0| 50 49 2a 28 22 2b a4 74 | 6f 75 70 70 65 72 28 24 |PI*("+.t|oupper($|
|00001cd0| a4 72 65 61 64 69 63 6f | 6e 74 65 78 74 28 77 68 |.readico|ntext(wh|
|00001ce0| 5f 69 6e 74 25 2c 33 29 | 29 2b 22 29 5e 32 22 0d |_int%,3)|)+")^2".|
|00001cf0| 0c 3a 09 f2 63 61 6c 63 | 0d 0c 44 23 f2 77 72 69 |.:..calc|..D#.wri|
|00001d00| 74 65 69 63 6f 6e 74 65 | 78 74 28 77 68 5f 69 6e |teiconte|xt(wh_in|
|00001d10| 74 25 2c 31 30 2c 61 6e | 73 24 29 0d 0c 4e 23 f2 |t%,10,an|s$)..N#.|
|00001d20| 77 72 69 74 65 69 63 6f | 6e 74 65 78 74 28 77 68 |writeico|ntext(wh|
|00001d30| 5f 69 6e 74 25 2c 31 31 | 2c 70 77 72 24 29 0d 0c |_int%,11|,pwr$)..|
|00001d40| 58 15 c8 99 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |X..."Hou|rglass_O|
|00001d50| 66 66 22 0d 0c 62 0d 70 | 6c 61 63 65 24 3d 22 22 |ff"..b.p|lace$=""|
|00001d60| 0d 0c 6c 05 e1 0d 0c 76 | 0a dd f2 63 61 6c 63 0d |..l....v|...calc.|
|00001d70| 0c 80 07 69 3d 30 0d 0c | 8a 14 e3 6e 25 3d 30 b8 |...i=0..|...n%=0.|
|00001d80| 73 74 65 70 73 25 2d 32 | 88 32 0d 0c 94 11 58 3d |steps%-2|.2....X=|
|00001d90| 6c 6f 77 65 72 2b 6e 25 | 2a 64 78 0d 0c 9e 0c 79 |lower+n%|*dx....y|
|00001da0| 30 3d a0 28 79 24 29 0d | 0c a8 15 58 3d 6c 6f 77 |0=.(y$).|...X=low|
|00001db0| 65 72 2b 28 6e 25 2b 31 | 29 2a 64 78 0d 0c b2 0c |er+(n%+1|)*dx....|
|00001dc0| 79 31 3d a0 28 79 24 29 | 0d 0c bc 15 58 3d 6c 6f |y1=.(y$)|....X=lo|
|00001dd0| 77 65 72 2b 28 6e 25 2b | 32 29 2a 64 78 0d 0c c6 |wer+(n%+|2)*dx...|
|00001de0| 0c 79 32 3d a0 28 79 24 | 29 0d 0c d0 18 69 2b 3d |.y2=.(y$|)....i+=|
|00001df0| 64 78 2f 33 2a 28 79 30 | 2b 34 2a 79 31 2b 79 32 |dx/3*(y0|+4*y1+y2|
|00001e00| 29 0d 0c da 07 ed 6e 25 | 0d 0c e4 39 e7 94 28 69 |).....n%|...9..(i|
|00001e10| 29 3c 31 45 2d 38 8c 61 | 6e 73 24 3d 22 30 2e 30 |)<1E-8.a|ns$="0.0|
|00001e20| 30 30 30 22 3a 70 77 72 | 24 3d 22 30 22 8b f2 74 |000":pwr|$="0"..t|
|00001e30| 6f 35 73 66 28 69 2c 61 | 6e 73 24 2c 70 77 72 24 |o5sf(i,a|ns$,pwr$|
|00001e40| 29 0d 0c ee 05 e1 0d 0c | f8 0a dd f2 64 69 66 66 |).......|....diff|
|00001e50| 0d 0d 02 2b 66 24 3d a4 | 74 6f 75 70 70 65 72 28 |...+f$=.|toupper(|
|00001e60| 24 a4 72 65 61 64 69 63 | 6f 6e 74 65 78 74 28 77 |$.readic|ontext(w|
|00001e70| 68 5f 64 69 66 66 25 2c | 33 29 29 0d 0d 0c 2b 78 |h_diff%,|3))...+x|
|00001e80| 24 3d a4 74 6f 75 70 70 | 65 72 28 24 a4 72 65 61 |$=.toupp|er($.rea|
|00001e90| 64 69 63 6f 6e 74 65 78 | 74 28 77 68 5f 64 69 66 |dicontex|t(wh_dif|
|00001ea0| 66 25 2c 34 29 29 0d 0d | 16 12 70 6c 61 63 65 24 |f%,4))..|..place$|
|00001eb0| 3d 22 76 61 6c 75 65 22 | 0d 0d 20 0b 78 3d a0 28 |="value"|.. .x=.(|
|00001ec0| 78 24 29 0d 0d 2a 15 70 | 6c 61 63 65 24 3d 22 66 |x$)..*.p|lace$="f|
|00001ed0| 75 6e 63 74 69 6f 6e 22 | 0d 0d 34 10 64 65 6c 74 |unction"|..4.delt|
|00001ee0| 61 3d 30 2e 30 30 30 35 | 0d 0d 3e 14 c8 99 22 48 |a=0.0005|..>..."H|
|00001ef0| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 0d 48 15 |ourglass|_On"..H.|
|00001f00| 58 3d 78 2d 64 65 6c 74 | 61 3a 59 3d a0 28 66 24 |X=x-delt|a:Y=.(f$|
|00001f10| 29 0d 0d 52 16 58 3d 78 | 2b 64 65 6c 74 61 3a 59 |)..R.X=x|+delta:Y|
|00001f20| 31 3d a0 28 66 24 29 0d | 0d 5c 16 64 3d 28 59 31 |1=.(f$).|.\.d=(Y1|
|00001f30| 2d 59 29 2f 28 32 2a 64 | 65 6c 74 61 29 0d 0d 66 |-Y)/(2*d|elta)..f|
|00001f40| 39 e7 94 28 64 29 3c 31 | 45 2d 38 8c 61 6e 73 24 |9..(d)<1|E-8.ans$|
|00001f50| 3d 22 30 2e 30 30 30 30 | 22 3a 70 77 72 24 3d 22 |="0.0000|":pwr$="|
|00001f60| 30 22 8b f2 74 6f 35 73 | 66 28 64 2c 61 6e 73 24 |0"..to5s|f(d,ans$|
|00001f70| 2c 70 77 72 24 29 0d 0d | 70 15 c8 99 22 48 6f 75 |,pwr$)..|p..."Hou|
|00001f80| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 0d 7a 23 f2 |rglass_O|ff"..z#.|
|00001f90| 77 72 69 74 65 69 63 6f | 6e 74 65 78 74 28 77 68 |writeico|ntext(wh|
|00001fa0| 5f 64 69 66 66 25 2c 35 | 2c 61 6e 73 24 29 0d 0d |_diff%,5|,ans$)..|
|00001fb0| 84 23 f2 77 72 69 74 65 | 69 63 6f 6e 74 65 78 74 |.#.write|icontext|
|00001fc0| 28 77 68 5f 64 69 66 66 | 25 2c 36 2c 70 77 72 24 |(wh_diff|%,6,pwr$|
|00001fd0| 29 0d 0d 8e 0d 70 6c 61 | 63 65 24 3d 22 22 0d 0d |)....pla|ce$=""..|
|00001fe0| 98 05 e1 0d 0d a2 08 dd | f2 6e 72 0d 0d ac 0d 6c |........|.nr....l|
|00001ff0| 69 6d 25 3d 31 30 30 30 | 0d 0d b6 2a 78 30 24 3d |im%=1000|...*x0$=|
|00002000| a4 74 6f 75 70 70 65 72 | 28 24 a4 72 65 61 64 69 |.toupper|($.readi|
|00002010| 63 6f 6e 74 65 78 74 28 | 77 68 5f 6e 72 25 2c 33 |context(|wh_nr%,3|
|00002020| 29 29 0d 0d c0 29 66 24 | 3d a4 74 6f 75 70 70 65 |))...)f$|=.touppe|
|00002030| 72 28 24 a4 72 65 61 64 | 69 63 6f 6e 74 65 78 74 |r($.read|icontext|
|00002040| 28 77 68 5f 6e 72 25 2c | 34 29 29 0d 0d ca 1a 70 |(wh_nr%,|4))....p|
|00002050| 6c 61 63 65 24 3d 22 69 | 6e 69 74 69 61 6c 20 76 |lace$="i|nitial v|
|00002060| 61 6c 75 65 22 0d 0d d4 | 0c 78 3d a0 28 78 30 24 |alue"...|.x=.(x0$|
|00002070| 29 0d 0d de 15 70 6c 61 | 63 65 24 3d 22 66 75 6e |)....pla|ce$="fun|
|00002080| 63 74 69 6f 6e 22 0d 0d | e8 14 c8 99 22 48 6f 75 |ction"..|...."Hou|
|00002090| 72 67 6c 61 73 73 5f 4f | 6e 22 0d 0d f2 08 6e 25 |rglass_O|n"....n%|
|000020a0| 3d 30 0d 0d fc 05 f5 0d | 0e 06 08 6f 78 3d 78 0d |=0......|...ox=x.|
|000020b0| 0e 10 10 58 3d 78 3a 79 | 31 3d a0 28 66 24 29 0d |...X=x:y|1=.(f$).|
|000020c0| 0e 1a 17 58 3d 78 2b 30 | 2e 30 30 30 31 3a 79 32 |...X=x+0|.0001:y2|
|000020d0| 3d a0 28 66 24 29 0d 0e | 24 17 64 69 66 66 3d 28 |=.(f$)..|$.diff=(|
|000020e0| 79 32 2d 79 31 29 2f 30 | 2e 30 30 30 31 0d 0e 2e |y2-y1)/0|.0001...|
|000020f0| 0f 78 3d 78 2d 79 31 2f | 64 69 66 66 0d 0e 38 09 |.x=x-y1/|diff..8.|
|00002100| 6e 25 2b 3d 31 0d 0e 42 | 19 fd 94 28 78 2d 6f 78 |n%+=1..B|...(x-ox|
|00002110| 29 3c 31 45 2d 38 84 6e | 25 3e 6c 69 6d 25 0d 0e |)<1E-8.n|%>lim%..|
|00002120| 4c 0d 70 6c 61 63 65 24 | 3d 22 22 0d 0e 56 3b e7 |L.place$|=""..V;.|
|00002130| 6e 25 3e 6c 69 6d 25 8c | 85 32 35 35 2c 22 4e 6f |n%>lim%.|.255,"No|
|00002140| 20 72 6f 6f 74 20 66 6f | 75 6e 64 20 66 72 6f 6d | root fo|und from|
|00002150| 20 67 69 76 65 6e 20 73 | 74 61 72 74 69 6e 67 20 | given s|tarting |
|00002160| 70 6f 69 6e 74 22 0d 0e | 60 39 e7 94 28 78 29 3c |point"..|`9..(x)<|
|00002170| 31 45 2d 38 8c 61 6e 73 | 24 3d 22 30 2e 30 30 30 |1E-8.ans|$="0.000|
|00002180| 30 22 3a 70 77 72 24 3d | 22 30 22 8b f2 74 6f 35 |0":pwr$=|"0"..to5|
|00002190| 73 66 28 78 2c 61 6e 73 | 24 2c 70 77 72 24 29 0d |sf(x,ans|$,pwr$).|
|000021a0| 0e 6a 15 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |.j..."Ho|urglass_|
|000021b0| 4f 66 66 22 0d 0e 74 21 | f2 77 72 69 74 65 69 63 |Off"..t!|.writeic|
|000021c0| 6f 6e 74 65 78 74 28 77 | 68 5f 6e 72 25 2c 35 2c |ontext(w|h_nr%,5,|
|000021d0| 61 6e 73 24 29 0d 0e 7e | 21 f2 77 72 69 74 65 69 |ans$)..~|!.writei|
|000021e0| 63 6f 6e 74 65 78 74 28 | 77 68 5f 6e 72 25 2c 36 |context(|wh_nr%,6|
|000021f0| 2c 70 77 72 24 29 0d 0e | 88 0d 70 6c 61 63 65 24 |,pwr$)..|..place$|
|00002200| 3d 22 22 0d 0e 92 05 e1 | 0d 0e 9c 09 dd f2 73 75 |="".....|......su|
|00002210| 6d 0d 0e a6 2b 61 6e 24 | 3d a4 74 6f 75 70 70 65 |m...+an$|=.touppe|
|00002220| 72 28 24 a4 72 65 61 64 | 69 63 6f 6e 74 65 78 74 |r($.read|icontext|
|00002230| 28 77 68 5f 73 75 6d 25 | 2c 33 29 29 0d 0e b0 2a |(wh_sum%|,3))...*|
|00002240| 69 24 3d a4 74 6f 75 70 | 70 65 72 28 24 a4 72 65 |i$=.toup|per($.re|
|00002250| 61 64 69 63 6f 6e 74 65 | 78 74 28 77 68 5f 73 75 |adiconte|xt(wh_su|
|00002260| 6d 25 2c 34 29 29 0d 0e | ba 2a 6a 24 3d a4 74 6f |m%,4))..|.*j$=.to|
|00002270| 75 70 70 65 72 28 24 a4 | 72 65 61 64 69 63 6f 6e |upper($.|readicon|
|00002280| 74 65 78 74 28 77 68 5f | 73 75 6d 25 2c 35 29 29 |text(wh_|sum%,5))|
|00002290| 0d 0e c4 0e 70 6c 61 63 | 65 24 3d 22 69 22 0d 0e |....plac|e$="i"..|
|000022a0| ce 0b 69 3d a0 28 69 24 | 29 0d 0e d8 0e 70 6c 61 |..i=.(i$|)....pla|
|000022b0| 63 65 24 3d 22 6a 22 0d | 0e e2 0b 6a 3d a0 28 6a |ce$="j".|...j=.(j|
|000022c0| 24 29 0d 0e ec 15 70 6c | 61 63 65 24 3d 22 66 75 |$)....pl|ace$="fu|
|000022d0| 6e 63 74 69 6f 6e 22 0d | 0e f6 14 c8 99 22 48 6f |nction".|....."Ho|
|000022e0| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 0f 00 09 73 |urglass_|On"....s|
|000022f0| 75 6d 3d 30 0d 0f 0a 0a | e3 4e 3d 69 b8 6a 0d 0f |um=0....|.N=i.j..|
|00002300| 14 0f 73 75 6d 2b 3d a0 | 28 61 6e 24 29 0d 0f 1e |..sum+=.|(an$)...|
|00002310| 05 ed 0d 0f 28 3d e7 94 | 28 73 75 6d 29 3c 31 45 |....(=..|(sum)<1E|
|00002320| 2d 38 8c 61 6e 73 24 3d | 22 30 2e 30 30 30 30 22 |-8.ans$=|"0.0000"|
|00002330| 3a 70 77 72 24 3d 22 30 | 22 8b f2 74 6f 35 73 66 |:pwr$="0|"..to5sf|
|00002340| 28 73 75 6d 2c 61 6e 73 | 24 2c 70 77 72 24 29 0d |(sum,ans|$,pwr$).|
|00002350| 0f 32 22 f2 77 72 69 74 | 65 69 63 6f 6e 74 65 78 |.2".writ|eicontex|
|00002360| 74 28 77 68 5f 73 75 6d | 25 2c 36 2c 61 6e 73 24 |t(wh_sum|%,6,ans$|
|00002370| 29 0d 0f 3c 22 f2 77 72 | 69 74 65 69 63 6f 6e 74 |)..<".wr|iteicont|
|00002380| 65 78 74 28 77 68 5f 73 | 75 6d 25 2c 37 2c 70 77 |ext(wh_s|um%,7,pw|
|00002390| 72 24 29 0d 0f 46 16 61 | 6e 24 3d 22 41 42 53 28 |r$)..F.a|n$="ABS(|
|000023a0| 22 2b 61 6e 24 2b 22 29 | 22 0d 0f 50 09 73 75 6d |"+an$+")|"..P.sum|
|000023b0| 3d 30 0d 0f 5a 0a e3 4e | 3d 69 b8 6a 0d 0f 64 0f |=0..Z..N|=i.j..d.|
|000023c0| 73 75 6d 2b 3d a0 28 61 | 6e 24 29 0d 0f 6e 05 ed |sum+=.(a|n$)..n..|
|000023d0| 0d 0f 78 3d e7 94 28 73 | 75 6d 29 3c 31 45 2d 38 |..x=..(s|um)<1E-8|
|000023e0| 8c 61 6e 73 24 3d 22 30 | 2e 30 30 30 30 22 3a 70 |.ans$="0|.0000":p|
|000023f0| 77 72 24 3d 22 30 22 8b | f2 74 6f 35 73 66 28 73 |wr$="0".|.to5sf(s|
|00002400| 75 6d 2c 61 6e 73 24 2c | 70 77 72 24 29 0d 0f 82 |um,ans$,|pwr$)...|
|00002410| 22 f2 77 72 69 74 65 69 | 63 6f 6e 74 65 78 74 28 |".writei|context(|
|00002420| 77 68 5f 73 75 6d 25 2c | 38 2c 61 6e 73 24 29 0d |wh_sum%,|8,ans$).|
|00002430| 0f 8c 22 f2 77 72 69 74 | 65 69 63 6f 6e 74 65 78 |..".writ|eicontex|
|00002440| 74 28 77 68 5f 73 75 6d | 25 2c 39 2c 70 77 72 24 |t(wh_sum|%,9,pwr$|
|00002450| 29 0d 0f 96 15 c8 99 22 | 48 6f 75 72 67 6c 61 73 |)......"|Hourglas|
|00002460| 73 5f 4f 66 66 22 0d 0f | a0 0d 70 6c 61 63 65 24 |s_Off"..|..place$|
|00002470| 3d 22 22 0d 0f aa 05 e1 | 0d 0f b4 14 dd a4 74 6f |="".....|......to|
|00002480| 75 70 70 65 72 28 74 65 | 78 74 24 29 0d 0f be 0a |upper(te|xt$)....|
|00002490| ea 6e 25 2c 63 24 0d 0f | c8 10 e3 6e 25 3d 31 b8 |.n%,c$..|...n%=1.|
|000024a0| a9 74 65 78 74 24 0d 0f | d2 13 63 24 3d c1 74 65 |.text$..|..c$=.te|
|000024b0| 78 74 24 2c 6e 25 2c 31 | 29 0d 0f dc 2e e7 63 24 |xt$,n%,1|).....c$|
|000024c0| 3e 3d 22 61 22 80 20 63 | 24 3c 3d 22 7a 22 8c c1 |>="a". c|$<="z"..|
|000024d0| 74 65 78 74 24 2c 6e 25 | 2c 31 29 3d bd 28 97 28 |text$,n%|,1)=.(.(|
|000024e0| 63 24 29 2d 33 32 29 0d | 0f e6 07 ed 6e 25 0d 0f |c$)-32).|....n%..|
|000024f0| f0 0a 3d 74 65 78 74 24 | 0d 0f fa 1c dd f2 74 6f |..=text$|......to|
|00002500| 35 73 66 28 6e 75 6d 2c | f8 6e 75 6d 24 2c f8 65 |5sf(num,|.num$,.e|
|00002510| 78 70 24 29 0d 10 04 0e | ea 40 25 2c 65 5f 70 6f |xp$)....|.@%,e_po|
|00002520| 73 25 0d 10 0e 0f 40 25 | 3d 26 31 30 31 30 35 30 |s%....@%|=&101050|
|00002530| 41 0d 10 18 0d 76 61 6c | 24 3d c3 6e 75 6d 0d 10 |A....val|$=.num..|
|00002540| 22 15 65 5f 70 6f 73 25 | 3d a7 76 61 6c 24 2c 22 |".e_pos%|=.val$,"|
|00002550| 45 22 29 0d 10 2c 18 6e | 75 6d 24 3d c0 76 61 6c |E")..,.n|um$=.val|
|00002560| 24 2c 65 5f 70 6f 73 25 | 2d 31 29 0d 10 36 1c 65 |$,e_pos%|-1)..6.e|
|00002570| 78 70 24 3d c2 76 61 6c | 24 2c a9 76 61 6c 24 2d |xp$=.val|$,.val$-|
|00002580| 65 5f 70 6f 73 25 29 0d | 10 40 05 e1 0d 10 4a 0e |e_pos%).|.@....J.|
|00002590| dd a4 46 41 43 54 28 6e | 25 29 0d 10 54 0a ea 69 |..FACT(n|%)..T..i|
|000025a0| 25 2c 66 25 0d 10 5e 0c | e7 6e 25 3d 30 8c 3d 31 |%,f%..^.|.n%=0.=1|
|000025b0| 0d 10 68 08 66 25 3d 31 | 0d 10 72 0c e3 69 25 3d |..h.f%=1|..r..i%=|
|000025c0| 31 b8 6e 25 0d 10 7c 0c | 66 25 3d 66 25 2a 69 25 |1.n%..|.|f%=f%*i%|
|000025d0| 0d 10 86 05 ed 0d 10 90 | 07 3d 66 25 0d ff |........|.=f%.. |
+--------+-------------------------+-------------------------+--------+--------+
